﻿Imports kplusEntity.KPLUS.Entity
Imports System.Data.OracleClient

Public Class DLogMantenimiento
    Public Function fInsertarLogMantenimiento(ByVal strConexion As OracleConnection, ByVal objELimiteGlobal As ELogMantenimiento) As Integer
        Dim N As Integer = -1
        Dim objCmd As New OracleCommand("PKG_PRM_MANTENIMIENTO.PR_P_INS_LIMITE_GLOBAL", strConexion)
        objCmd.CommandType = CommandType.StoredProcedure

        objCmd.Parameters.Add("PeriodoMes", OracleType.VarChar, 6).Value = objELimiteGlobal.PeriodoMes
        objCmd.Parameters.Add("NumVersion", OracleType.Int32).Value = objELimiteGlobal.NumVersion
        objCmd.Parameters.Add("CodMantenimiento", OracleType.Int32).Value = objELimiteGlobal.CodMantenimiento
        objCmd.Parameters.Add("NumAnhio", OracleType.Int32).Value = objELimiteGlobal.NumAnhio
        objCmd.Parameters.Add("TipOperacion", OracleType.VarChar, 20).Value = objELimiteGlobal.TipoOperacion
        objCmd.Parameters.Add("DesMantenimiento", OracleType.VarChar, 100).Value = objELimiteGlobal.DesMantenimiento
        objCmd.Parameters.Add("CodUsrRegistro", OracleType.VarChar, 20).Value = objELimiteGlobal.CodUsrRegistro
        objCmd.Parameters.Add("FecRegistro", OracleType.DateTime).Value = objELimiteGlobal.FecRegistro
        objCmd.Parameters.Add("DesComentario", OracleType.VarChar, 100).Value = objELimiteGlobal.DesComentario
        objCmd.Parameters.Add("FecActualizacionTabla", OracleType.DateTime).Value = objELimiteGlobal.FecActualizacionTabla

        N = objCmd.ExecuteNonQuery
        Return N
    End Function
End Class
